home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD007a.dsk / MAY.COVER.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  49 lines
  1. 100  REM ***********************
  2. 110  REM * SOFTDISK MAG. COVER *
  3. 120  REM *  V1 #9   MAY, 1982  *
  4. 130  REM *                     *
  5. 140  REM * PICTURE BY JIM GANZ *
  6. 150  REM *                     *
  7. 160  REM * TEXT GENERATED BY:  *
  8. 170  REM *    "HIGHER TEXT"    *
  9. 180  REM *                     *
  10. 190  REM *  HI-RES SCROLL RTN  *
  11. 200  REM *   BY EDWARD C. SO   *
  12. 210  REM *  FROM "CALL -APPLE" *
  13. 220  REM *  FEB. 1982 VOL 5 #2 *
  14. 230  REM ***********************
  15. 240  TEXT : HOME 
  16. 250  GOSUB 350: PRINT  CHR$(4)"BRUNCOVER.SCROLL"
  17. 260  PRINT  CHR$(4)"BLOADSOFTDISK.COVER.MAY,A$2000"
  18. 270  VTAB 22: HTAB 6: PRINT "PRESS ANY KEY TO VIEW COVER";
  19. 275  VTAB 24: HTAB 9: PRINT "(PRESS AGAIN TO SCRAM)";
  20. 280  POKE  -16368,0: CALL  -756
  21. 290  POKE  -16300,0: POKE  -16302,0: POKE  -16297,0: POKE  -16304,0: POKE 230,32
  22. 300 WUN = 1:W91 = 191
  23. 310  CALL  -756: POKE 0,0: POKE 2,0: POKE 3,39: FOR X = 0 TO 51: POKE WUN,W91 -X: & U: NEXT 
  24. 320  HOME : POKE  -16368,0
  25. 330  POKE  -16301,0: VTAB 21: HTAB 11: PRINT "(PLEASE STAND BY...)"
  26. 340  PRINT  CHR$(4);"RUN KICK.IT.OFF"
  27. 350  VTAB 3: INVERSE : FOR X = 0 TO 9: HTAB 11: PRINT  SPC( 29): PRINT : NEXT 
  28. 360 T$ = "SOFTDISK MAGAZETTE"
  29. 370  VTAB 1: HTAB 3: INVERSE : FOR X = 1 TO  LEN(T$): IF X = 9  THEN  CALL  -1036: GOTO 390
  30. 380  PRINT  MID$ (T$,X,1);
  31. 390  CALL  -1036: NEXT 
  32. 400  VTAB 4: INVERSE 
  33. 410  HTAB 12: PRINT  CHR$(34)"THE APPLE IS CUTE. IT"
  34. 420  HTAB 12: PRINT "LOOKS LIKE A PREGNANT TYPE-"
  35. 430  HTAB 12: PRINT "WRITER WITH AIR VENTS. I'M"
  36. 440  HTAB 12: PRINT "SURE THIS ANTHROPOMORPHIC"
  37. 450  HTAB 12: PRINT "ENGINEERING WAS DELIBERATE."
  38. 460  HTAB 12: PRINT "AFTER ALL, WHO COULD FEEL"
  39. 470  HTAB 12: PRINT "THREATENED BY A FRIENDLY,"
  40. 480  HTAB 12: PRINT "OVERGROWN KEYBOARD?" CHR$(34)
  41. 490  NORMAL 
  42. 500  VTAB 15
  43. 510  PRINT "QUOTED FROM REVIEWER STEVE DITLEA IN"
  44. 520  PRINT  CHR$(34)"POPULAR COMPUTING" CHR$(34)" VOL 1 NO. 6."
  45. 530  PRINT 
  46. 540  PRINT "COVER BY:     JIM GANZ                                82 SPRING LANE                          WEST HARTFORD, CONN."
  47. 550  RETURN 
  48. 560  REM 
  49. 570  REM PROGRAM ENDS AT 340